home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / MODES / SENDMAIL.ELC < prev    next >
Text File  |  1993-03-28  |  15KB  |  136 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:33:14 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/modes/sendmail.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (provide 'sendmail)
  14. (defvar mail-default-reply-to nil "\
  15. *Address to insert as default Reply-to field of outgoing messages.")
  16. (defvar mail-yank-prefix nil "\
  17. *Prefix insert on lines of yanked message being replied to.
  18. nil means use indentation.")
  19. (byte-code "└┴!¼é┬└├!¼é┬└─!¼é┬┬ç" [boundp mail-abbrevs-loaded nil mail-mode-map mail-reply-buffer] 2)
  20. (defvar mail-send-actions nil "\
  21. A list of actions to be performed upon successful sending of a message.")
  22. (defvar mail-signature-file "~/.signature" "\
  23. File to be inserted at the end of a message. Usually, this file is called
  24. \"~/.signature\".")
  25. (defvar mail-insert-signature nil "\
  26. If T, insert automaticcally the file denoted by the variable
  27. `mail-signature-file' before sending a message.")
  28. (defvar mail-signature-inserted nil "\
  29. Non-nil means signature already inserted; don't reinsert it.")
  30. (defvar mail-mode-syntax-table nil "\
  31. Syntax table used while in mail mode.")
  32. (byte-code "¼è┴\n!├─┼#ê╞╟╚\"ê╔╩Mç" [mail-mode-syntax-table copy-syntax-table text-mode-syntax-table modify-syntax-entry 37 ". " autoload mail-aliases-setup "mail-abbrevs" mail-setup #[(to subject in-reply-to cc replybuffer actions) "┬ ê ┼ebê╟cêè½æ╔▒ê╩ ╠ed\"ê)¬â═ ê½ö`╩ ╨╔▒ê╤d\"ê*½ç╙╔▒ê╘«ü╓╔▒ê½ç╪╔▒ê½ç┌█ ╔▒ê½ç▌╔▒ê╔▒ê)½âdbê¼î¼ê¼ä▀┼!êαß!ç" [actions mail-send-actions mail-aliases-setup replybuffer mail-reply-buffer nil mail-signature-inserted "To: " to "\n" "    " fill-prefix fill-region newline cc opos "CC: " fill-region-as-paragraph in-reply-to "In-reply-to: " "Subject: " subject "" mail-default-reply-to "Reply-to: " mail-self-blind "BCC: " user-login-name mail-archive-file-name "FCC: " mail-header-separator set-buffer-modified-p run-hooks mail-setup-hook] 3]] 4)
  33. (fset 'mail-mode #[nil "└ ê┴┬!ê├┴─!ê┴┼!ê╞!ê╚    !ê\n ╠╬╨┴╥!ê┴╙!ê╘╓R╘╓R╫╪┘\"ç" [kill-all-local-variables make-local-variable mail-reply-buffer nil mail-send-actions mail-signature-inserted set-syntax-table mail-mode-syntax-table use-local-map mail-mode-map text-mode-abbrev-table local-abbrev-table mail-mode major-mode "Mail" mode-name t buffer-offer-save paragraph-separate paragraph-start "^" mail-header-separator "$\\|^[     ]*[-_][-_][-_]+$\\|" run-hooks text-mode-hook mail-mode-hook] 4 "\
  34. Major mode for editing mail to be sent.
  35. Like Text Mode but with these additional commands:
  36. C-c C-s  mail-send (send the message)    C-c C-c  mail-send-and-exit
  37. C-c C-f  move to a header field (and create it if there isn't):
  38.      C-c C-f C-t  move to To:    C-c C-f C-s  move to Subj:
  39.      C-c C-f C-b  move to BCC:    C-c C-f C-c  move to CC:
  40. C-c C-t  move to message text.
  41. C-c C-y  mail-yank-original (insert current message, in Rmail).
  42. C-c C-w  mail-signature (insert signature file).
  43. C-c C-q  mail-fill-yanked-message (fill what was yanked).
  44. C-c C-v  mail-sent-via (add a sent-via field for each To or CC)
  45.  
  46. Button3  Popup menu with the above commands." nil])
  47. (byte-code "¼╓┴ ┬ \"ê─┼╞#ê─╟╚#ê─╔╩#ê─╦╠#ê─═╬#ê─╧╨#ê─╤╥#ê─╙╘#ê─╒╓#ê─╫╪#ê─┘┌#ê─█▄#ê─▌▐#ê┴ç" [mail-mode-map make-sparse-keymap set-keymap-parent text-mode-map define-key "?" describe-mode "" mail-to "" mail-bcc "" mail-cc "" mail-subject "" mail-text "" mail-yank-original "" mail-signature "" mail-fill-yanked-message "" mail-sent-via "" mail-send-and-exit "" mail-send button3 mail-mode-menu] 4)
  48. (defvar mail-mode-menu '("Mail Mode" "Sending Mail:" "----" ["Send and Exit" mail-send-and-exit t] ["Send Mail" mail-send t] ["Sent Via" mail-sent-via t] "----" "Go to Field:" "----" ["To:" mail-to t] ["Subject:" mail-subject t] ["CC:" mail-cc t] ["BCC:" mail-bcc t] ["Text" mail-text t] "----" "Miscellaneous Commands:" "----" ["Yank Original" mail-yank-original t] ["Fill Yanked Message" mail-fill-yanked-message t] ["Insert Signature" mail-signature t] "----" ["Abort" kill-buffer t]) "\
  49. Popup menu called by the function `mail-mode-menu'.")
  50. (fset 'mail-mode-menu #[(event) "└┴\n!!ê├ë ½ª╚@!½Ü@╔H╩=½å@¬î@╔H╦=½ä@Aë¼Z½ë╠??Iê½Ä╠;¡ä╧!Iê+╨─!ç" [select-window event-window event nil mail-mode-menu rest sig yank vectorp 1 mail-yank-original mail-signature 2 mail-reply-buffer mail-signature-file file-exists-p popup-menu] 5 "\
  51. Pop up the mail mode menu, defined by the variable `mail-mode-menu'." "e"])
  52. (fset 'mail-send-and-exit #[(arg) "└ ê┴p!ê\n¼ÿ├ ¼öè─┼╞ ╟\"!qê)╔=½â╩ ç╦╠p!!ç" [mail-send bury-buffer arg one-window-p window-buffer next-window selected-window not major-mode rmail-mode delete-window switch-to-buffer other-buffer] 4 "\
  53. Send message like mail-send, then, if no errors, exit from mail buffer.
  54. Prefix arg means don't delete this window." "P"])
  55. (fset 'mail-send #[nil "└ ¼à┴┬!¡╥├─!ê¼ì╞!½ç½â╔ ê╩╦!ê  ê½ì╬╧╨ÅêAë¼s└ ½û½Æ¼ë┴╙╘\"!½ì╒ ê¬ê╓╬!ê╫╪!ê├┘!ç" [buffer-modified-p y-or-n-p "Message already sent; resend? " message "Sending..." mail-signature-inserted file-exists-p mail-signature-file mail-insert-signature mail-signature run-hooks mail-send-hook send-mail-function mail-send-actions nil (byte-code "└    @@    @A\"ç" [apply mail-send-actions] 3) ((error)) buffer-file-name noninteractive format "Save file %s? " save-buffer set-buffer-modified-p delete-auto-save-file-if-necessary t "Sending...done"] 5 "\
  56. Send the message in the current buffer.  If the file denoted by the variable
  57. `mail-signature-file' exists, and the variable `mail-insert-signature' is
  58. non-nil, it is inserted at the end.  If `mail-insert-signature' is nil, your
  59. .signature file will not be inserted unless you do it explicitly with C-c C-w.
  60. If `mail-interactive' is non-nil, wait for success indication or error
  61. messages, and inform user.  Otherwise any failure is reported in a message
  62. back to the user from the mailer." nil])
  63. (fset 'sendmail-send-it #[nil "½à┴┬!¬ü├┴─!┼ëp    \n╦Äè    qê╠ ê═!êdbêh╬U¼â╬cêebê╧╨╤!╙Q!ê╘╙!ê╒╓!ê╫ ebê╧╪┘#½î`W½å╘╙!ê¬l┘ebê╧┌┘#½ä█▄!êebê╧▌┘#½à▐!êebê╧▀┘#½ƒαß!êΓîe}êπΣ!)!σ ÿ¼è╓yêµσ ╙▒êebê╧τ┘#½ä╘Φ!êebê╧Θ┘#½ä╘Ω!ê½ëè\nqê╠ ê))δ∞φedε∩!½ä/¬ü≡┼\n┼±≥»≤σ D?¡ü⌠#\"ê¡úè\nqêebê╧⌡┼┘#½å╘÷!ê¬s≈ ├U?¡å█°ed{\").ç" [mail-interactive generate-new-buffer " sendmail errors" 0 " sendmail temp" nil mailbuf delimline case-fold-search tembuf errbuf ((byte-code "└    !ê┬ !½ä└ !ê└ç" [kill-buffer tembuf bufferp errbuf] 2)) erase-buffer insert-buffer-substring 10 re-search-forward "^" regexp-quote mail-header-separator "\n" replace-match backward-char 1 point-marker "\n\n\n*" t "^Sender:" error "Sender may not be specified." "^FCC:" mail-do-fcc "^From:" require mail-utils mail-strip-quoted-names mail-fetch-field "From" user-login-name "Sender: " "^S:" "Subject:" "^Subject:[     ]*\n" "" apply call-process-region append boundp sendmail-program "/usr/lib/sendmail" "-oi" "-t" "-f" ("-oem" "-odb") "\n\n* *" "; " buffer-size "Sending...failed to %s"] 11])
  64. (fset 'mail-sent-via #[nil "èebê└┴\n┴Q!ê├yê─ ┼╞    ebê╩╦    ┼#¡á`╩╠    ┼#½å═╬!ê¬ä    bê`{╧╨\"ê)¬X,ç" [search-forward "\n" mail-header-separator -1 point-marker t nil to-line case-fold-search end re-search-forward "^\\(to\\|cc\\):" "^[^     \n]" backward-char 1 insert-before-markers "Sent-via:"] 5 "\
  65. Make a Sent-via header line from each To or CC header line." nil])
  66. (fset 'mail-to #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "To"] 2 "\
  67. Move point to end of To-field." nil])
  68. (fset 'mail-subject #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "Subject"] 2 "\
  69. Move point to end of Subject-field." nil])
  70. (fset 'mail-cc #[nil "└ ê┴┬├\"«å┴─!ê┼cç" [expand-abbrev mail-position-on-field "cc" t "to" "\nCC: "] 3 "\
  71. Move point to end of CC-field.  Create a CC field if none." nil])
  72. (fset 'mail-bcc #[nil "└ ê┴┬├\"«å┴─!ê┼cç" [expand-abbrev mail-position-on-field "bcc" t "to" "\nBCC: "] 3 "\
  73. Move point to end of BCC-field.  Create a BCC field if none." nil])
  74. (fset 'mail-position-on-field #[(field &optional soft) "└┴ebê─┼┼Q!ê╟öebê╚╔╩ !╠Q ┴#½É╚═└╬#ê╟yê┼└xê┴¬ô¼Ä bê┼└xê┼ ╨▒ê└*ç" [nil t case-fold-search end search-forward "\n" mail-header-separator 0 re-search-forward "^" regexp-quote field ":" "^[^     ]" move soft ": "] 4])
  75. (fset 'mail-text #[nil "ebê└┴\n┴Q!ç" [search-forward "\n" mail-header-separator] 4 "\
  76. Move point to beginning of text field." nil])
  77. (fset 'mail-signature #[nil "èdbê└┴xê┴ê`d|ê┬cê├─!!ê╞ë)ç" ["     \n" nil "\n\n--\n" insert-file-contents expand-file-name mail-signature-file t mail-signature-inserted] 3 "\
  78. Sign letter with contents of the signature file, 
  79. which is named by the variable `mail-signature-file'." nil])
  80. (fset 'mail-fill-yanked-message #[(&optional justifyp) "èebê└┴\n┴Q├─#ê┼`d─$)ç" [search-forward "\n" mail-header-separator nil t fill-individual-paragraphs justifyp] 5 "\
  81. Fill the paragraphs of a message yanked into this one.
  82. Numeric argument means justify as well." "P"])
  83. (fset 'mail-yank-original #[(arg) "¡╬`┬!ê├!ê :¼▓┼    ╞╟!\"ê¼Æ╔    ╞╟! ½à╩ !¬ü╦#ê¬òè    bê`╞╟!W½ëcê╠yê¬p)═╧ ê)l?¡é╨c)ç" [mail-reply-buffer start delete-windows-on insert-buffer arg mail-yank-clear-headers mark t mail-yank-prefix indent-rigidly prefix-numeric-value 3 1 nil zmacs-regions exchange-point-and-mark 10] 5 "\
  84. Insert the message being replied to, if any (in rmail).
  85. Puts point before the text and mark after.
  86. Normally, indents each nonblank line ARG spaces (default 3).
  87. However, if `mail-yank-prefix' is non-nil, insert that prefix on each line.
  88.  
  89. Just \\[universal-argument] as argument means don't indent, insert no prefix,
  90. and don't delete any header fields." "P"])
  91. (byte-code "└┴Mê┬├Mê─┼!¼é╞╟╚Mê╔╩Mê╦╠Mç" [mail-yank-clear-headers #[(start end) "èbê┴┬ ─#¡ñî`}êbê─╞╚─#)¡É╔yê`╞╩!ê╦uê`|ê¬e))ç" [start search-forward "\n\n" end t case-fold-search re-search-forward mail-yank-ignored-headers nil 0 "\n[^     ]" -1] 4] mail-do-fcc #[(header-end) "└p┴┬!├└ë    ╩ !¼ä╠═!êèebê╬╧ ├#½Ö`└ê╨└xê`{    B    ╤ö╥yê`|ê¬_qê╙ ê╘╥ #êebê╬╒ ├#¼è╓╫ ╪┘ ┌▒êebê╬█ ├#¼â▄ êebê▌╫ ▐▀ α▒êdbê╘ \"êdbêßcê Sbê└Γ▌└├#½êπuêΣcê¬q)ed    ½╙σ    @!ë&½¼è&qê'Φ=½çΘ!ê¬ù'Ω=½çδ!ê¬èdbê╘ #ê)¬ö∞φ    @!½âe¬éeTd    @├$ê)    Aë    ¼-)ε!.ç" [nil generate-new-buffer " rmail output" t end beg case-fold-search tembuf send-mail-buffer fcc-list markerp header-end error "header-end must be a marker" re-search-forward "^FCC:[     ]*" "     " 0 1 erase-buffer insert-buffer-substring "^From[     ]*:" "From: " user-login-name " (" user-full-name ")\n" "^Date[     ]*:" mail-do-fcc-insert-date-header "\nFrom " " " current-time-string "\n" 10 search-forward -5 62 get-file-buffer target-buffer major-mode rmail-mode mail-do-fcc-rmail-internal vm-mode mail-do-fcc-vm-internal write-region file-exists-p kill-buffer] 7] boundp mail-do-fcc-cached-timezone nil mail-do-fcc-insert-date-header #[nil "└ ┴─┼ \"ê╞ ╟ö╟òO╚ ╔ö╔òO╩ ╦ö╦òO╩ ╠ö╠òO╩ ═ö═òO╩▒ ê½ç╧▒¬¬î``}ê╨╤┴╥┴$ê┴ê╧cê╙vê`SdS|ê╙vêe`|êedS{ë)*ç" [current-time-string nil zone s string-match "\\`\\([A-Z][a-z][a-z]\\) +\\([A-Z][a-z][a-z]\\) +\\([0-9][0-9]?\\) *\\([0-9][0-9]?:[0-9][0-9]:[0-9][0-9]\\) *[0-9]?[0-9]?\\([0-9][0-9]\\)" "Date: " 1 ", " 3 " " 2 5 4 mail-do-fcc-cached-timezone "\n" call-process "date" t -1] 12] mail-do-fcc-rmail-internal #[(buffer) "┴=¼ä┬├!êed─╚Ä~êdbê─    ╩cê╦ !ê═c,ç" [major-mode rmail-mode error "this only works in rmail-mode" nil buffer-read-only e b ((byte-code "    }ê┬ ç" [b e rmail-maybe-set-message-counters] 2)) rmail-total-messages " \n0, unseen,,\n*** EOOH ***" insert-buffer-substring buffer "\n"] 3] mail-do-fcc-vm-internal #[(buffer) "┴=¼ä┬├!ê─╞ deZV─ëë    ½æ╩ e─ôë½ç╩ d─ô╦Ä~êdbê╠!êT╧╨!ê╤ ê╥!½ë╘!¼â─╒ ê╓ -ç" [major-mode vm-mode error "this only works in vm-mode" nil buffer-read-only buffer-size vm-sr-max vm-sr-min vm-sr-clip make-marker ((byte-code "~ê½Ä    \n}ê    ├ëôê\n├ëôê├ç" [vm-sr-clip vm-sr-min vm-sr-max nil] 3)) insert-buffer-substring buffer vm-messages-not-on-disk vm-set-buffer-modified-p t vm-clear-modification-flag-undos bufferp vm-summary-buffer buffer-name vm-assimilate-new-messages vm-update-summary-and-mode-line] 4]] 2)
  92. (fset 'mail #[(&optional noerase to subject in-reply-to cc replybuffer actions) "└┴ ½º┼ └U½â╞¬ä╟╚ \"!ë½è╔\n!¼à T¬d\n½å╩\n!ê¬é┴ ?¡╓┼ └U½â╞¬ä╟╚ \"!ë½è╔\n!½à T¬d\n¼ä╦╞!╩\n!ê╠ ê═╬!╨!ê╥ ê╙&ê½è█!½ä▄▌!ê▐*ç" [1 nil buffer index noerase get-buffer "*mail*" format "*mail*<%d>" buffer-modified-p switch-to-buffer generate-new-buffer erase-buffer expand-file-name "~/" default-directory auto-save-mode auto-save-default mail-mode mail-setup to subject in-reply-to cc replybuffer actions buffer-auto-save-file-name file-exists-p message "Auto save file for draft message exists; consider M-x mail-recover" t] 7 "\
  93. Edit a message to be sent.  Argument means resume editing (don't erase).
  94. Search for an existing mail buffer currently not in use and initialize it,
  95. or make a new one if all existing mail buffers are busy.
  96. With an argument, search for a busy existing mail buffer and re-select it.
  97.  
  98. Returns with message buffer selected; value t if message freshly initialized.
  99.  
  100. While editing message, type C-c C-c to send the message and exit.
  101.  
  102. Various special commands starting with C-c are available in sendmail mode
  103. to move to message header fields:
  104. \\{mail-mode-map}
  105.  
  106. If `mail-insert-signature' is non-nil, the signature file, denoted by
  107. the variable `mail-signature-file', is automatically inserted at the
  108. end of the message before sending.  (Otherwise use C-c C-w).
  109.  
  110. If `mail-self-blind' is non-nil, a BCC to yourself is inserted
  111. when the message is initialized.
  112.  
  113. If `mail-default-reply-to' is non-nil, it should be an address (a string);
  114. a Reply-to: field with that address is inserted.
  115.  
  116. If `mail-archive-file-name' is non-nil, an FCC field with that file name
  117. is inserted.
  118.  
  119. If `mail-setup-hook' is bound, its value is called with no arguments
  120. after the message is initialized.  It can add more default fields.
  121.  
  122. When calling from a program, the second through fifth arguments
  123.  TO, SUBJECT, IN-REPLY-TO and CC specify if non-nil
  124.  the initial contents of those header fields.
  125.  These arguments should not have final newlines.
  126. The sixth argument REPLYBUFFER is a buffer whose contents
  127.  should be yanked if the user types C-c C-y.
  128. The seventh argument ACTIONS is a list of actions to take
  129.  if/when the message is sent.  Each action looks like (FUNCTION . ARGS);
  130.  when the message is sent, we apply FUNCTION to ARGS.
  131.  This is how Rmail arranges to mark messages `answered'." "P"])
  132. (fset 'mail-recover #[nil "└ ┬ï½î├┼ ê╞    ├\")¬â╟╚!)ç" [make-auto-save-file-name file-name ((byte-code "┴=¼Æ┬É├ !ê┼╞╟ ╟╚    &æê╩╦╠    \"!ç" [system-type vax-vms "*Directory*" buffer-disable-undo standard-output call-process "ls" nil "-l" file-name yes-or-no-p format "Recover auto save file %s? "] 8)) nil buffer-read-only erase-buffer insert-file-contents error "mail-recover cancelled."] 3 "\
  133. Reread contents of current buffer from its last auto-save file." nil])
  134. (fset 'mail-other-window #[(&optional noerase to subject in-reply-to cc replybuffer sendactions) "└┬├!ê)─    \n &ç" [t pop-up-windows pop-to-buffer "*mail*" mail noerase to subject in-reply-to cc replybuffer sendactions] 8 "\
  135. Like `mail' command, but display mail buffer in another window." "P"])
  136.